home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj0687.arc / ITERATE.F77 < prev    next >
Text File  |  1987-04-02  |  500b  |  24 lines
  1. C     ITERATIVE FORTRAN SOURCE CODE
  2. C
  3.       INTEGER I,  J
  4.       REAL    A0, B0, C0, D0
  5.       REAL    A1, B1, C1, D1
  6. C
  7.       DATA A0/1.0/, B0/2.0/, C0/3.0/, D0/4.0/
  8. C
  9.       DO 10 I=1,1000
  10.         DO 10 J=1,1000
  11.           A1 = C0 - B0
  12.           B1 = D0 / B0
  13.           C1 = A0 + B0
  14.           D1 = B0 * B0
  15.           A0 = C1 - B1
  16.           B0 = D1 / B1
  17.           C0 = A1 + B1
  18.           D0 = B1 * B1
  19.    10 CONTINUE
  20. C
  21.       WRITE(*,1000) A1, B1, C1, D1
  22.  1000 FORMAT(4F10.1)
  23.       END
  24.